* Stata Program and Log File *
* for Busch-Reinhardt BJPS article *
* "Industrial Location and Voter Participation in Europe" *
* forthcoming *
* by Marc L. Busch and Eric Reinhardt *
* program author: Eric Reinhardt *
* Part I: Eurobarometer Application (Table 1) *
* Model 1 *
probit Turnout Geocon Traded GeoconTraded  Male Homeowner  Married Education Age  CityDweller  IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10 [pw=WEIGHTP], robust
* Q: Does it work if we exclude the 'No Answer's from Turnout? *
probit TurnoutAlternative Geocon Traded GeoconTraded  Male Homeowner  Married Education Age  CityDweller  IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10 [pw=WEIGHTP], robust
pwcorr Geocon Traded GeoconTraded  Male Homeowner  Married Education Age  CityDweller  IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10
reg Geocon Traded GeoconTraded  Male Homeowner  Married Education Age  CityDweller  IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10
reg Traded GeoconTraded  Male Homeowner  Married Education Age  CityDweller  IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10 Geocon 
reg GeoconTraded  Male Homeowner  Married Education Age  CityDweller  IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10 Geocon Traded 
reg Male Homeowner  Married Education Age  CityDweller  IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10 Geocon Traded GeoconTraded  
reg Homeowner  Married Education Age  CityDweller  IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10 Geocon Traded GeoconTraded  Male 
reg Married Education Age  CityDweller  IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10 Geocon Traded GeoconTraded  Male Homeowner  
reg Education Age  CityDweller  IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10 Geocon Traded GeoconTraded  Male Homeowner  Married 
reg Age  CityDweller  IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10 Geocon Traded GeoconTraded  Male Homeowner  Married Education 
reg CityDweller  IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10 Geocon Traded GeoconTraded  Male Homeowner  Married Education Age  
reg IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10 Geocon Traded GeoconTraded  Male Homeowner  Married Education Age  CityDweller  
reg IncomeCat2 IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10 Geocon Traded GeoconTraded  Male Homeowner  Married Education Age  CityDweller  IncomeCat1 
reg IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10 Geocon Traded GeoconTraded  Male Homeowner  Married Education Age  CityDweller  IncomeCat1 IncomeCat2 
reg IncomeCat4 stateab2-stateab8 nacegp2-nacegp10 Geocon Traded GeoconTraded  Male Homeowner  Married Education Age  CityDweller  IncomeCat1 IncomeCat2 IncomeCat3 
log close
* that was collinearity diagnostics *
* substantive effects *

drop xb xbno
probit Turnout Geocon Traded GeoconTraded  Male Homeowner  Married Education Age  CityDweller  IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10 [pw=WEIGHTP], robust
gen xbno=xb-(-1.446958*Geocon)-(-4.660802*Traded)-(4.437841*GeoconTraded)
* Set Traded=0.5, Geocon at min, then max *
di norm(1.658308+(-1.446958*.1888752)+(-4.660802*.5)+(4.437841*.1888752*.5))
di norm(1.658308+(-1.446958*.8211392)+(-4.660802*.5)+(4.437841*.8211392*.5))
di norm(1.658308+(-1.446958*.8211392)+(-4.660802*.5)+(4.437841*.8211392*.5))-norm(1.658308+(-1.446958*.1888752)+(-4.660802*.5)+(4.437841*.1888752*.5))
su Geocon
* Now set Traded=0.5 but Geocon at mean, then mean+SD *
di norm(1.658308+(-1.446958*.409517)+(-4.660802*.5)+(4.437841*.409517*.5))
di norm(1.658308+(-1.446958*(.409517+.1780559))+(-4.660802*.5)+(4.437841*(.409517+.1780559)*.5))
di norm(1.658308+(-1.446958*(.409517+.1780559))+(-4.660802*.5)+(4.437841*(.409517+.1780559)*.5))-norm(1.658308+(-1.446958*.409517)+(-4.660802*.5)+(4.437841*.409517*.5))
* collective significance of selected controls *
testparm stateab2-stateab8
testparm nacegp2-nacegp10
testparm  IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4
test IncomeCat1=IncomeCat2=IncomeCat3=IncomeCat4
* Model II *
xi: probit Turnout elec  UnionMember PublicSector  OccupationManager OccupationWhiteCollar OccupationManualWorker i.workplac Geocon Traded GeoconTraded  Male Homeowner  Married Education Age  CityDweller  IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10 [pw=WEIGHTP], robust
des workplac
xi: probit Turnout  MonthsTillNextElection UnionMember PublicSector  OccupationManager OccupationWhiteCollar OccupationManualWorker i.workplac Geocon Traded GeoconTraded  Male Homeowner  Married Education Age  CityDweller  IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10 [pw=WEIGHTP], robust
* collective significance of selected controls *
testparm stateab2-stateab8
testparm nacegp2-nacegp10
testparm  IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4
test IncomeCat1=IncomeCat2=IncomeCat3=IncomeCat4
testparm _Iworkplac*
testparm Occupation*
spearman workplac Geocon if e(sample)
* Robustness Tests for the Eurobarometer Application *
* R&D *
probit Turnout RD Geocon Traded GeoconTraded  Male Homeowner  Married Education Age  CityDweller  IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10 [pw=WEIGHTP], robust
xi: probit Turnout RD MonthsTillNextElection UnionMember PublicSector  OccupationManager OccupationWhiteCollar OccupationManualWorker i.workplac Geocon Traded GeoconTraded  Male Homeowner  Married Education Age  CityDweller  IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10 [pw=WEIGHTP], robust
pwcorr RD Geocon, obs sig
* Industrial Concentration *
gen z=log(oecdent)
probit Turnout z Geocon Traded GeoconTraded  Male Homeowner  Married Education Age  CityDweller  IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10 [pw=WEIGHTP], robust
xi: probit Turnout z MonthsTillNextElection UnionMember PublicSector  OccupationManager OccupationWhiteCollar OccupationManualWorker i.workplac Geocon Traded GeoconTraded  Male Homeowner  Married Education Age  CityDweller  IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10 [pw=WEIGHTP], robust
* Opinion Leadership *
tab OpinionLeader
su OpinionLeader, detail
gen OpinionGeocon=OpinionLeader*Geocon
probit Turnout OpinionGeocon OpinionLeader Geocon Traded GeoconTraded  Male Homeowner  Married Education Age  CityDweller  IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10 [pw=WEIGHTP], robust
xi: probit Turnout OpinionGeocon OpinionLeader MonthsTillNextElection UnionMember PublicSector  OccupationManager OccupationWhiteCollar OccupationManualWorker i.workplac Geocon Traded GeoconTraded  Male Homeowner  Married Education Age  CityDweller  IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10 [pw=WEIGHTP], robust
probit Turnout Geocon Traded GeoconTraded  Male Homeowner  Married Education Age  CityDweller  IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10 [pw=WEIGHTP] if OpinionLeader<=2, robust
xi: probit Turnout MonthsTillNextElection UnionMember PublicSector  OccupationManager OccupationWhiteCollar OccupationManualWorker i.workplac Geocon Traded GeoconTraded  Male Homeowner  Married Education Age  CityDweller  IncomeCat1 IncomeCat2 IncomeCat3 IncomeCat4 stateab2-stateab8 nacegp2-nacegp10 [pw=WEIGHTP] if OpinionLeader<=2, robust
* Part II: Netherlands Application *

* Model III *
probit Turnout Election1982  Election1986  PartyIdentifier  Interested IncomeCat1-IncomeCat4 Male  Homeowner  Married  Education  Age  CityDweller GeoconCentered Traded  GeoconCenteredTraded, robust
* collinearity assessment *
pwcorr Election1982  Election1986  PartyIdentifier  Interested IncomeCat1-IncomeCat4 Male  Homeowner  Married  Education  Age  CityDweller GeoconCentered Traded  GeoconCenteredTraded
reg Election1982  Election1986  PartyIdentifier  Interested IncomeCat1-IncomeCat4 Male  Homeowner  Married  Education  Age  CityDweller GeoconCentered Traded  GeoconCenteredTraded
reg Election1986  PartyIdentifier  Interested IncomeCat1-IncomeCat4 Male  Homeowner  Married  Education  Age  CityDweller GeoconCentered Traded  GeoconCenteredTraded Election1982  
reg PartyIdentifier  Interested IncomeCat1-IncomeCat4 Male  Homeowner  Married  Education  Age  CityDweller GeoconCentered Traded  GeoconCenteredTraded Election1982  Election1986  
reg Interested IncomeCat1-IncomeCat4 Male  Homeowner  Married  Education  Age  CityDweller GeoconCentered Traded  GeoconCenteredTraded Election1982  Election1986  PartyIdentifier  
reg IncomeCat1-IncomeCat4 Male  Homeowner  Married  Education  Age  CityDweller GeoconCentered Traded  GeoconCenteredTraded Election1982  Election1986  PartyIdentifier  Interested 
reg IncomeCat2-IncomeCat4 Male  Homeowner  Married  Education  Age  CityDweller GeoconCentered Traded  GeoconCenteredTraded Election1982  Election1986  PartyIdentifier  Interested IncomeCat1
reg IncomeCat1 IncomeCat3-IncomeCat4 Male  Homeowner  Married  Education  Age  CityDweller GeoconCentered Traded  GeoconCenteredTraded Election1982  Election1986  PartyIdentifier  Interested IncomeCat2
reg IncomeCat1-IncomeCat2 IncomeCat4 Male  Homeowner  Married  Education  Age  CityDweller GeoconCentered Traded  GeoconCenteredTraded Election1982  Election1986  PartyIdentifier  Interested IncomeCat3
reg IncomeCat1-IncomeCat3 Male  Homeowner  Married  Education  Age  CityDweller GeoconCentered Traded  GeoconCenteredTraded Election1982  Election1986  PartyIdentifier  Interested IncomeCat4
reg Male  Homeowner  Married  Education  Age  CityDweller GeoconCentered Traded  GeoconCenteredTraded Election1982  Election1986  PartyIdentifier  Interested IncomeCat1-IncomeCat4
reg Homeowner  Married  Education  Age  CityDweller GeoconCentered Traded  GeoconCenteredTraded Election1982  Election1986  PartyIdentifier  Interested IncomeCat1-IncomeCat4 Male  
reg Married  Education  Age  CityDweller GeoconCentered Traded  GeoconCenteredTraded Election1982  Election1986  PartyIdentifier  Interested IncomeCat1-IncomeCat4 Male  Homeowner  
reg Education  Age  CityDweller GeoconCentered Traded  GeoconCenteredTraded Election1982  Election1986  PartyIdentifier  Interested IncomeCat1-IncomeCat4 Male  Homeowner  Married  
reg Age  CityDweller GeoconCentered Traded  GeoconCenteredTraded Election1982  Election1986  PartyIdentifier  Interested IncomeCat1-IncomeCat4 Male  Homeowner  Married  Education  
reg CityDweller GeoconCentered Traded  GeoconCenteredTraded Election1982  Election1986  PartyIdentifier  Interested IncomeCat1-IncomeCat4 Male  Homeowner  Married  Education  Age  
reg GeoconCentered Traded  GeoconCenteredTraded Election1982  Election1986  PartyIdentifier  Interested IncomeCat1-IncomeCat4 Male  Homeowner  Married  Education  Age  CityDweller 
reg Traded  GeoconCenteredTraded Election1982  Election1986  PartyIdentifier  Interested IncomeCat1-IncomeCat4 Male  Homeowner  Married  Education  Age  CityDweller GeoconCentered 
reg GeoconCenteredTraded Election1982  Election1986  PartyIdentifier  Interested IncomeCat1-IncomeCat4 Male  Homeowner  Married  Education  Age  CityDweller GeoconCentered Traded  
reg Election1982  Election1986  PartyIdentifier  Interested IncomeCat1-IncomeCat4 Male  Homeowner  Married  Education  Age  CityDweller GeoconCentered Traded  GeoconCenteredTraded 
* substantive effects *
estsimp probit Turnout Election1982  Election1986  PartyIdentifier  Interested IncomeCat1-IncomeCat4 Male  Homeowner  Married  Education  Age  CityDweller GeoconCentered Traded  GeoconCenteredTraded, robust sims(100000)
tab industry if indusnam=="Chemical products"
su Traded if industry==17
su GeoconCentered
setx mean
setx Traded 1.316052 GeoconCentered -.1492772 GeoconCenteredTraded (-.1492772*1.316052)
simqi
setx Traded 1.316052 GeoconCentered .0415268 GeoconCenteredTraded (.0415268*1.316052)
simqi
setx Traded 1.316052 GeoconCentered -.1492772 GeoconCenteredTraded (-.1492772*1.316052) Interested 0 PartyIdentifier 0
simqi
setx Traded 1.316052 GeoconCentered .0415268 GeoconCenteredTraded (.0415268*1.316052) Interested 0 PartyIndentifier 0
setx Traded 1.316052 GeoconCentered .0415268 GeoconCenteredTraded (.0415268*1.316052) Interested 0 PartyIdentifier 0
simqi
test  IncomeCat1= IncomeCat2= IncomeCat3= IncomeCat4

* Model IV *
probit Turnout  UnionMember PublicSector OccupationManager OccupationWhiteCollar OccupationSkilled OccupationUnskilled Election1982  Election1986  PartyIdentifier  Interested IncomeCat1-IncomeCat4 Male  Homeowner  Married  Education  Age  CityDweller GeoconCentered Traded  GeoconCenteredTraded, robust
testparm UnionMember PublicSector OccupationManager OccupationWhiteCollar OccupationSkilled OccupationUnskilled
* Robustness Tests *
* R&D *
probit Turnout RD Election1982  Election1986  PartyIdentifier  Interested IncomeCat1-IncomeCat4 Male  Homeowner  Married  Education  Age  CityDweller GeoconCentered Traded  GeoconCenteredTraded, robust
probit Turnout RD UnionMember PublicSector OccupationManager OccupationWhiteCollar OccupationSkilled OccupationUnskilled Election1982  Election1986  PartyIdentifier  Interested IncomeCat1-IncomeCat4 Male  Homeowner  Married  Education  Age  CityDweller GeoconCentered Traded  GeoconCenteredTraded, robust
* Industrial Concentration *
gen firms=log(firmstp)
probit Turnout firms Election1982  Election1986  PartyIdentifier  Interested IncomeCat1-IncomeCat4 Male  Homeowner  Married  Education  Age  CityDweller GeoconCentered Traded  GeoconCenteredTraded, robust


probit Turnout firms UnionMember PublicSector OccupationManager OccupationWhiteCollar OccupationSkilled OccupationUnskilled Election1982  Election1986  PartyIdentifier  Interested IncomeCat1-IncomeCat4 Male  Homeowner  Married  Education  Age  CityDweller GeoconCentered Traded  GeoconCenteredTraded, robust
* Validation of Dep Var *
tab  intent Turnout, row
di (15+308)/339
exit, STATA clear
